home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD 60 / supercd60_2.iso / BlitzBasic / Blitz2DPCP / data1.cab / Support / help / beginners / tutorial / if then1.bb < prev    next >
Encoding:
Text File  |  2001-11-21  |  312 b   |  11 lines
  1. .start 
  2. question$ = Input ("Shall I tell you the meaning of life yes/no? ")
  3. If question$ = "no" Then Print "Alright, Then I won't":Goto Leave
  4. If question$ = "yes" Then Print "42":Goto Leave
  5. If question$ <> "yes" Or "no" Then Goto start
  6. End
  7. .Leave
  8. Print "Press ESC to Exit"
  9. Repeat
  10.     VWait
  11. Until KeyHit(1)